home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 20 / Big_Mouth_The_20_1998_-_Side_A.d64 / uni load.src (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  1KB  |  39 lines
  1. 10                * = $0334
  2. 20                lda #<uni(NULL)
  3. 30                sta $0330
  4. 40                lda #>uni(NULL)
  5. 50                sta $0331
  6. 60                rts
  7. 70     uni(NULL)    ;universal load
  8. 80                lda #$37
  9. 90                sta $01
  10. 100               lda #$08
  11. 110               tax
  12. 120               ldy #$00
  13. 130               jsr $ffba
  14. 140               jsr $ffc0
  15. 150               ldx #$08
  16. 160               jsr $ffc6
  17. 170               jsr $ffcf
  18. 180               sta $ae
  19. 190               jsr $ffcf
  20. 200               sta $af
  21. 210    getbyte    jsr $ffcf
  22. 220               sei
  23. 230               inc $01
  24. 240               ldy #$00
  25. 250               sta ($ae),y
  26. 260               inc $ae
  27. 270               bne notzero
  28. 280               inc $af
  29. 290    notzero    dec $01
  30. 300               lda $90
  31. 310               beq getbyte
  32. 320               lda #$08
  33. 330               jsr $ffc3
  34. 340               rts
  35. 350    ;
  36. 360    ;
  37. 370    ;change start address to what
  38. 380    ;is needed. best if *=$0334 ;
  39.